home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #15
/
Monster Media Number 15 (Monster Media)(July 1996).ISO
/
win_utl2
/
pspa370a.zip
/
EXAMPL07.POM
< prev
next >
Wrap
Text File
|
1996-04-26
|
335b
|
19 lines
;
; Replace every tab character with two spaces
;
CHANGE $FLINE $TAB " "
;
; Extract the columns
;
SET ProgName = $FLINE[ 1 20]
SET Descrip = $FLINE[22 99]
;
; Trim the spaces
;
TRIM ProgName "B" " "
TRIM Descrip "B" " "
;
; Output the result
;
OUTEND |"{ProgName}","{Descrip}"